Tech Arsenal 1/Tech Arsenal (Arsenal Computer).ISO/tek-02/gsdb25.zip/DB_XPL10.PAS

Pascal/Delphi Source File | 1991-01-01 | 220b | 16 lines

program DB_Xpl10;
uses
   GS_dBFld;

var
   f : GS_dBFld_Objt;

begin
   if f.Create('testfile') then
   begin
      f.Open;
      while f.FieldAppendScreen(true) do f.Append;
      f.Close;
   end;
end.